home *** CD-ROM | disk | FTP | other *** search
/ Micromanía 93 / CDMM_93_2.ISO / Project Nomads / nomads_demo_eng.exe / POWERPLANT.TCL < prev    next >
Encoding:
Text File  |  2002-04-19  |  5.2 KB  |  200 lines
  1. #
  2. #   Zustands-▄berwachungs-Script
  3. #   State Watch Script
  4. #
  5. #   POWERPLANT
  6. #
  7. #   created:    15-Jun-2000 Bernd
  8. #   
  9. #   (C) COPYRIGHT 2000 RADONLABS GMBH
  10. #
  11.  
  12. proc powerplantwatch_normal {} {
  13.  
  14.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  15.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  16.     if {[.getartefactmode] == "false"} {
  17.         .announcestate house
  18.     } elseif {[.iscollected] == "true"} {
  19.         .announcestate backpack
  20.     } elseif {[.getcharges] <= 0} {
  21.         .setremoveable true
  22.     } elseif {[.getcreator] != "null"} {
  23.         .announcestate infactoryslot
  24.     }
  25. }
  26.  
  27. proc powerplantwatch_infactoryslot {} {
  28.  
  29.     # vorerst hier unzerstoerbar. Bleibt so, bis es aufgesammelt
  30.     # (in BackPack) oder gebaut (kein Artefakt mehr) wird 
  31.     if {[.getartefactmode] == "false"} {
  32.         .announcestate house
  33.     } elseif {[.iscollected] == "true"} {
  34.         .announcestate backpack
  35.     } elseif {[.getcharges] <= 0} {
  36.         .setremoveable true
  37.     } elseif {[.getcreator] == "null"} {
  38.         .announcestate normal
  39.     }
  40. }
  41.  
  42. proc powerplantwatch_bauphase {} {
  43.  
  44.     # kann zerstoert oder wieder zusammengeklappt werden
  45.     if {[.iskilled] == "true"} {
  46.         .announcestate explode
  47.     } elseif {[.getartefactmode] == "true"} {
  48.         .announcestate normal
  49.     } elseif {[.isstatetimeover] == "true"} {
  50.         .announcestate house
  51.         usersymbolicname playerpowerplant
  52.     }
  53. }
  54.  
  55.  
  56. proc powerplantwatch_house {} {
  57.  
  58.     # kann zerstoert oder wieder zusammengeklappt werden
  59.     if {[.iskilled] == "true"} {
  60.         .announcestate explode
  61.     } elseif {[.getartefactmode] == "true"} {
  62.         .announcestate normal
  63.     } elseif {[.isdooropen] == "true"} {
  64.         .announcestate open
  65.     } elseif {[.isworking] == "true"} {
  66.         .announcestate working
  67.     } elseif {[.isoutputvehicle] == "true"} {
  68.         .announcestate outputvehicle
  69.         .setoutputvehicle false
  70.     } elseif {[.removebuilding] == "true"} {
  71.         .announcestate remove
  72.     }
  73. }
  74.  
  75. proc powerplantwatch_offline {} {
  76.  
  77.     # kann zerstoert oder wieder zusammengeklappt werden
  78.     if {[.iskilled] == "true"} {
  79.         .announcestate explode
  80.     } elseif {[.getartefactmode] == "true"} {
  81.         .announcestate normal
  82.     } elseif {[.getsleepmode] == "false"} {
  83.         .announcestate house
  84.     } elseif {[.removebuilding] == "true"} {
  85.         .announcestate remove
  86.     }
  87. }
  88.  
  89. proc powerplantwatch_working {} {
  90.  
  91.     # kann zerstoert oder wieder zusammengeklappt werden
  92.     if {[.iskilled] == "true"} {
  93.         .announcestate explode
  94.     } elseif {[.getartefactmode] == "true"} {
  95.         .announcestate normal
  96.     } elseif {[.isdooropen] == "true"} {
  97.         .announcestate open
  98.     } elseif {[.isworking] == "false"} {
  99.         .announcestate house
  100.     } elseif {[.isoutputvehicle] == "true"} {
  101.         # denn es kann ja ein artefact gebaut werden
  102.         .announcestate outputvehicle
  103.         .setoutputvehicle false
  104.     } elseif {[.removebuilding] == "true"} {
  105.         .announcestate remove
  106.     } elseif {[.getsleepmode] == "true"} {
  107.         .announcestate offline
  108.     }
  109. }
  110.  
  111. proc powerplantwatch_explode {} {
  112.  
  113.     # Uebergang zum Artefakt oder Wegnehmen
  114.     if {[.isanimfinished] == "true"} {
  115.         if {[.getcharges] <= 0} {
  116.             .setremoveable true
  117.         } else {
  118.             .announcestate normal
  119.         .removefromisland
  120.         }
  121.     }
  122. }
  123.  
  124. proc powerplantwatch_remove {} {
  125.  
  126.     # Uebergang zum Artefakt oder Wegnehmen
  127.     if {[.isanimfinished] == "true"} {
  128.         if {[.getcharges] <= 0} {
  129.             .setremoveable true
  130.         } else {
  131.             .announcestate normal
  132.         .removefromisland
  133.         }
  134.     }
  135. }
  136.  
  137. proc powerplantwatch_backpack {} {
  138.  
  139.     # Moeglich: usgeworfen (Nicht mehr "gesammelt") oder im
  140.     # Menue gezeigt (sichtbar)
  141.     if {[.iscollected] == "false"} {
  142.         .announcestate normal
  143.     } elseif {[.isvisible] == "true"} {
  144.         .announcestate menue
  145.     }
  146. }
  147.  
  148. proc powerplantwatch_menu {} {
  149.  
  150.     if {[.isvisible] == "false"} {
  151.         .announcestate backpack
  152.     } elseif {[.getartefactuse] == "true"} {
  153.         .announcestate build
  154.     } elseif {[.iscollected] == "false"} {
  155.         .announcestate normal
  156.     }
  157. }
  158.  
  159. proc powerplantwatch_build {} {
  160.  
  161.     if {[.iskilled] == "true"} {
  162.         .announcestate explode
  163.     } elseif {[.getartefactmode] == "false"} {
  164.         .announcestate bauphase
  165.     } elseif {[.getartefactuse] == "false"} {
  166.         .announcestate backpack
  167.     }
  168. }
  169.  
  170. proc powerplantwatch_inputvehicle {} {
  171.  
  172.     # Wenn Einhol-Animation fertig ist, Zustand umschalten
  173.     if {[.iskilled] == "true"} {
  174.         .announcestate explode
  175.     } elseif {[.getartefactmode] == "true"} {
  176.         .announcestate normal
  177.     } elseif {[.isanimfinished] == "true"} {
  178.         .announcestate house
  179.     }
  180. }
  181.  
  182. proc powerplantwatch_outputvehicle {} {
  183.  
  184.     # Wenn Ausspuck-Animation fertig, wieder normalen Fabrik-Zustand
  185.     # schalten
  186.     if {[.iskilled] == "true"} {
  187.         .announcestate explode
  188.     } elseif {[.getartefactmode] == "true"} {
  189.         .announcestate normal
  190.     } elseif {[.isanimfinished] == "true"} {
  191.         .announcestate house
  192.     }
  193. }
  194.  
  195. proc powerplantwatch_cinematic {} {
  196.  
  197.     # empty
  198. }    
  199.  
  200.